home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / alpha.arc / ALLPASS.BAS next >
Encoding:
BASIC Source File  |  1986-12-31  |  999 b   |  29 lines
  1. 2  REM Copyright 1986, Arnold B. Krueger, Grosse Pointe Woods, MI, 48236
  2. 5  PRINT "Unity gain 2nd order all-pass design program"
  3. 10 PI = ATN(SQR(3!))*3!
  4. 20 INPUT "Enter desired Q:  hit enter for Bessel (.577) ",Q
  5. 30 IF Q = 0 THEN Q = 1!/SQR(3!)
  6. 40 INPUT "Enter desired Design Frequency: or hit enter to set delay ",F
  7. 50 IF F<>0! THEN DELAY = 1!/(2!*F)
  8. 60 PRINT "Delay is ";DELAY;" Sec"
  9. 70 INPUT "enter delay, in MicroSeconds, if Different: ",US
  10. 80 US = US/1000000!
  11. 90 IF US <> 0 THEN F = 1!/(2!*US)
  12. 100 DELAY = 1!/(2!*F)
  13. 110 INPUT "Enter desired capacitance,Pf: ",C
  14. 120 C= C/1000000!
  15. 130 C= C/1000000!
  16. 140 W = 2!*PI*F
  17. 150 RS = 1!/(2!*C*W)
  18. 160 ALPHA = (3!* Q - 1!)/(3!* Q + 1!)
  19. 170 R0 = 36!*RS/((1!+ALPHA)*(2!-ALPHA))
  20. 180 TC = RS*C
  21. 190 R1 = R0*(1!+ALPHA)/3!
  22. 200 R2 = RS*4!
  23. 210 R3 = R0*(2!-ALPHA)/3!
  24. 220 R4 = RS/ALPHA
  25. 230 R5 = RS/(1!-ALPHA)
  26. 240 PRINT "Q ";Q;" C ";C*1000000!;"uF  F ";F;"Hz, Delay ";DELAY;" Sec"
  27. 250 PRINT "R1 ";R1;" R2 ";R2;" R3 ";R3;" R4 ";R4;" R5 ";R5
  28. 
  29.